PC Answers 1998 January/PC Answers Issue 49 Cover CD January 1998.iso/Apps/Director/DATA.Z/Lists Lingo.dir/Standard Elements_2_Initialize Standard Movie Handlers.ls

Text File | 1997-05-10 | 713 b | 42 lines

on openWindow
  if the windowType of the activeWindow <> 4 then
    set the windowType of the activeWindow to 4
    set the title of the activeWindow to the movieName
  end if
end

on closeWindow
  if count(the windowList) < 2 then
    clearGlobals()
  end if
  forget(the activeWindow)
end

on activateWindow
  continue()
end

on deactivateWindow
  pause()
end

on initStandardElements
  global gMaxChannels, gListsButtonPropertyList
  set gMaxChannels to 48
  if not voidp(gListsButtonPropertyList) then
  else
    BuildButtonPropertyList([])
    set gListsButtonPropertyList to the result
  end if
end

on stopMovie
  sound stop 1
  sound stop 2
  forget(the activeWindow)
end

on idle
  doRollOverCheck()
end